AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 


| 
LLLLLLLLLLLLLLL | 
| 
| 


I 16 
**FILE**1D**MAILCMDS 


MM MM AMSAAA III! LL cccccccc MM MM DDDDDDDD SS 

MM MM ALRAAA II111 LL cccccccc MM MM DDDDDDDD Ss 
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MM MM MM AA AA I] LL cc MM MM MM DD DD SS 

MM MM MM OAA BA I] LL cc Mh MM MM «ODD DD SS 

MM MM AA I] LL cc MM DD DD SSSSS 

MM MM AA AA I] LL cc MM MM DD DD SSSSS 

MM MM AAAAAAAAAA I] LL cc MM MM DD DD 

MM MM AAAAAAAAAA I] LL cc MM MM DD DD 

MM MM AA AA I] LL cc MM MM DD DD 

MM MM AA AA I] LL cc MM MM DD DD 

MM MM AA III] LLLLLLLLLL cccccccc MM MM DDDDDDDD SSSSSSSS 

MM MM AA Aa III] LLLLLLLLLL cccccccc MM MM DDDDDDDD SSSSSSSS 
ccccecce «(Lk DDDDDDDD 
cccccccce LL DDDDDDDD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc LL DD DD 

cc D 


LL D DD 
CCCCCCCC LLLLLLLLLL DDDDDDDD 
CCCCCCCC LLLLLLLLLL DDDDDDDD 
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eee eR RARER AERA EAA E ETAT ATA EETEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Ltt AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


® 
® 
® 
® 
* 
® 
® 
® 
i 0 . 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
© 
® 
*® 
® 
® 
® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:® CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeeeeeeeeeeeeeeeeeeeeeReReeeeeeeeeeeneeeeneeeeeeneeereneeereeeereeeeees 
module mailScommand_table 


Add prompts to define/key, remove $infile value types 
where incorrectly applied. 


! 
Version: *v04-000' 
MODIFIED BY: 
i V03-014 ROPO016 Robert Posniak 02-JUL-1984 
‘ Change p2 in Set Forward to a appropriate 
; type. 
i v03-013 BLS0292 Benn Schreiber 8-APR-1984 
Add Send/attach hook 
i v03-012 BLS0263 Benn Schreiber 4-FEB-1984 
Add COMPRESS command. 
v03-011 BLS0255 Benn Schreiber | 28-Dec-1983 
Add some disallows where appropriate. Add SHOW KEY command. 
i V03-010 BLS0246 Benn Schreiber 28-Nov-1983 
Add /edit to several commands. 
v03-009 BLS0235 Benn Schreiber 23-Aug-1983 
i 
i 
i v03-008 BLS0229 Benn Schreiber 16-Jul-1983 

Add SHOW NEW_MAIL_COUNT command 

i v03-007 BLS0225 Benn Schreiber 17-Jun-1983 

Forgot to update SHOW WASTEBASKET NAME. 

v03-006 BLS0222 Benn Schreiber 15-May-1983 


Change command to SET WASTEBASKET _NAME 
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v03-005 B8LS0220 Benn Schreiber 30-Apr-1 
Ever vaey hated Aye'D y 4a of? D is back. Add SET 
of A 10> URGE, MA REC 


v03-004 pu seer? oe Schreiber 12-Apr-1983 
emove D as — ommand. Add SPAWN, ATT CH, and 
WeECr qualifier or SEND. REPLY. Add SET COPY Command. 


v03-003 PCA1008 Paul C. anagnestepeu.e 29-Mar-1983 
Change the way in which verb name abbreviations are 
specified in order to conform to the new CDU. 


v03-002 BLS0214 Benn Schreiber 27-Mar-1983 
Add DELETE/ALL, REPLY/EXTRACT, SHOW DELETED, SHOW FOLDER, 
and make E and EX synonyms for EXIT 


763 
/SHOW 


define syntax attach _parent 
parameter pl,v 
qualifier Sarent. Vefault 


define verb attach 

routine mail$cmd_attach 

parameter pl,value(required) ,prompt=''Process'’ 

ms fh porent.. nonnegatable,syntax=attach_parent 
isallow pl and parent 


define verb back 
routine mail$cmd_back 
qualifier edit 


define verb compress 

routine mail$cmd_compress 

parameter p1,value(type=$infile),label=file 
‘qualifier fdl,value(required,type=S$infile) 
qualifier output, value(type= Sout file) 


define verb current 
routine mail$cmd_current 
qualifier edit 


define syntax define skey 
parameter 9} -value(réqu red) ,prompt="‘Key name"’ 
parameter p 2; value (required) .pronpt="Trans tat ion" 
qualifier e defaul 
qualifier ete tat 
qualifier lock_state 
qualifier if_state,value(required, list) 
qualifier se _state,value(required) 

ualifier | og” 

isallow - lock_state and terminate and set_state) 
disallow (lock_stafe and not set_state) 


define verb define 
routine mail$cmd_define 
qualifier key,syntax=define_key 
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disallow (not key) 


define verb delete 


synonym d 
synony: 


m de 
cliflags (abbreviate) 
routine mail$cmd_delete 


parameter 
ualifier 


pi, label=delnum 
al(,nonne atable 


isallow all and delnum 


define verb directory 
routine mail$cmd_directory 


parameter 
qualifier 


‘qualifier fl 


qualifier 


1,label=folder_name,value 
efore,value(type=Sdatet ime) ,nonnegatable 
a 


telder 


‘qualifier from,value,nonnegatable 


qualifier 
qualifier 


full ,nonnegatable 
new 


‘qualifier replied 


qualifier 
ualifier 


since, value(type=S$datet ime) ,nonnegatable 
start,value(default=""1"") 


isallow folder and (before or full or new or since) 


define verb copy 
routine mai\$cmd_co 


parameter 
parameter 
qualifier 
qualifier 


> py 4 ry . 
pi, label=folder_name,prompt=''Folder’’, value(required) 
p2, Label=file,value(type-Sinfile) ,prompt="'File” 
all nonnegatable 


confirm,default 


define verb erase 
routine mail$cmd_erase 


define verb extract 
routine mail$cmd_extract 


parameter 
qualifier 
qualifier 
qualifier 
qualifier 


pl, label=extf,prompt="'File’’,value(required, type=$infile) 
all ,nonnegatab e 

popend nemnepetabie 

header ,default 

mail ,nonnegatable 


define verb edit 
routine mail$cmd_edit 


parameter 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
ener 


pl, labél=input ,prompt="'F ile’, value(required,type=$infile) 
command, value(type=Sinfile) 
reate Poni 
ournal,value(type=$infile) 
aoe. teeth | rate iene 
read,nonnegatable 
recover ,nonnegatable 


isallow read and (create or recover) 


define verb exit 


synonym e 
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elif lags (abbreviate) 
routine mail$cmd_set_exit 


define verb first 
routine mail$cnd. first 
qualifier edit 


define verb forward 
routine ys mee forward 
qualifier e 

qualifier ot default 


define verb help 
routine mai lSemd. help 
parameter pl,label= holghere., value(type=$rest_of_line) 


define verb Last 
routine mail$cmd_last 
qualifier edit 


define verb move 

synonym file 

rout ine mail$cmd_move 

parameter p1,label=folder_name,prompt="‘Folder" -value(required) 
poreneter p2, Label=file,value(type= infile),prompt=' File’ 
qualifier atl nonnegatable 

qualifier confirm,default 


define verb next 
routine mail$cmd_next 
qualifier edit 


atthe — print 
synon 
rout ine nail$cnd print 


at 
qualifier copies. value(required) 
qualifier notify 
qualifier print 

ualifier queue,value(required) 

isallow print and (all or copies or queue) 


define verb purge 
routine mail purge 

qualifier reclaim nalnegeteble 
qualifier statistics enonnegatable 


define verb quit 
routine mail$cmd_set_quit 


define verb reply 
synonym r 

synonym re 

synen ym ans 

c iflags(abbrey ‘ate? 
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routine rail $cmd_reply : 
parameter pl,label=repif,value(type=$infile) 
qualifier edit 
qualifier extract 
qualifier Last,nonnegatable 

ualifier self 


isallow last and (edit or extract or replf) 


routine mail$cmd_read 

parameter pl,label=readi,value 
| parameter p2,label=read2,value 
qualifier efore,value(type=$datet ime) ,nonnegatable 
qualifier edit 
‘qualifier flag 
| SQuel itter from,value,nonnegatable 

qualifier new 

‘qualifier replied : 

qualifier since, value(type=$datet ime) ,nonnegatable 


| 
‘Fouttn verb read 


define verb select 

routine mail$cmd_select 

parameter pl,label=folder_name,prompt="Folder'', value 
qualifier before, value(type=S$datet ime) ,nonnegatable 
!qualifier flag 

‘qualifier from,value,nonnegatable 

qualifier new 

‘qualifier replied : 

qualifier since,value(type=$datet ime) ,nonnegatable 


synonym s 
synonym se_ 
synonym mail 
cliflags (abbreviate) 
routine mail$cmd_send 5 See 
parameter pi,label=send1,value(type=$infile) 
qualifier attachment ,nonnegatable 
qualifier last,nonnegatable : 
qualifier subject,nonnegatibdle,value(required) 
qualifier edit 

ualifier self ¢ 

isallow last and (send! or edit) 
disaliow attachment and not send! 


| 

define verb send 
fl verb search 

| routine mail$cmd_search % 
parameter pl,labdel=search!,value(type=$rest_of_Line) 


qualifier next,nonnegatable 


define syntax set_auto_syntax 
routine mail$cmd_Set_auto 
parameter pl,value(required) 


define syntax set_noauto_syntax 
routine mail$cmd_set_noauto 


- 
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parameter pl,value(required) 
‘define syntax set_dir_syntax 


routine mail$cmd_Set_dir 

parameter pl,value(required) : ; = 
parameter p2,ladel=file,value(required,type=$Sinfile),prompt="Directory' 
qualifier log 


|define syntax set_nodir_syntax 
routine mail$cmd_set_nodir 

parameter fa Senwesesquired? 

| Qual iter og 


'define syntax set_file_syntax 
routine mail$cmd_Set_file 
parameter p1,value(required) inthe 
parameter p2,label=file,value(type=$infile) 


define syntax set_folder_syntax 

routine mail$cmd_select 

parameter p1,value(required) ; 
parameter p2,label=folder_name,prompt='‘Folder'’,value 
qualifier before,value(type=$datetime) ,nonnegatable 
‘qualifier flag 

‘qualifier from,value,nonnegatable 

qualifier new — 

‘qualifier replied 

qualifier since,value(type=$datet ime) ,nonnegatable 


define syntax set_forward_syntax 

routine mail$cmd_set_forward 

parameter pl,value(required) ? a ‘ 

parameter p2,label=setf1,prompt="‘Address’',value(required) 

qua.ifier user,value(required) ,nonnegatable 


define syntax set_noforward_syntax 

routine mail$cmd_set_noforward 

parameter p1,value(required) 
qualifier user,value(required) ,nonnegatable 


define syntax set_name_syntax 
routine mail$cmd_set_name 
parameter pi,value(required) ; ; ; 

parameter p2,label=setn!,prompt="'Name’'’, value(required,type=$rest_of_Lline) 


define type set_self_types 
keyword nosend 

keyword noreply 

keyword reply 

keyword send 


define syntax oat sett ounten 
routine mail$cmd_set_sel 

parameter pl,value(required) ; - 

parameter p2,label=setni,prompt="'0n'’,value(list,type=set_self_types) 
define syntax set_noname_syntax 


rc -——_---— - - —— $$$ SS a 
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routine mail$cmd_clear_name 
parameter pl,value(required) 


define syntax set_waste_syntax 

‘routine mail$cmd_set_waste 

| parameter pl,value(required) ‘ i 

/parameter p2,label=wastename,prompt=''‘Folder'’, value(required) 


'define type set_options 

| keyword auto _purge,syntax=set_auto_syntax 

keyword noaufo_purge,syntax=set noauto_syntax,nonnegatable 
keyword copy sé f ,syntax=set_sel f_syntax,nonnegatable 
|keyword file;syntax=set_file syntax,nonnegatable 

keyword folder,syntax=set_folder_syntax,nonnegatable 
keyword forward,syntax=set_forward_syntax 
keyword mail directory, syntax=set_dir_syntax 

keyword nomail_directory,syntax=set_nodir_syntax,nonnegatable 
keyword noforward,syntax=set_noforward_syntax,nonnegatable 
keyword personal _name,syntax=set_name_syntax 

keyword nopersonal_name,syntax=set_noname_syntax,nonnegatable 
keyword wastebasket_name,syntax=set_waste_syntax,nonnegatable 


define syntax show all_syntax 
routine mailScmd_show_a 
parameter pl,value(required) 


define syntax show_auto_syntax 
routine mail$cmd_show_auto 
parameter pl,value(required) 


define syntax show del_syntax 
routine mail$cmd_show_de msg 
parameter pl,value(required 


define syntax show _dir_syntax 
routine mail$cmd_show_dir 
parameter pl,value(required) 


define syntax show _file_syntax 
routine mail$cmd_show_file 
parameter pl,value(required) 


define syntax show _folder_syntax 
routine mail$cmd_show_folder 
parameter pl,value(required) 


define syntax show forward_syntax 

routine mail$cmd_show_forward 

parameter pl,value(required) 

qualifier user,value(required) ,nonnegatable 


define syntax show_all_keys _ ’ 
parameter p1,label=option,value(required) 


define syntax show_all_states | : 
parameter p1,label=option,value(required) 


1 
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define syntax show key syntax 

| routine mail$cmd_show_Key 

parameter pl,value(required) : 
| perameter p2 nt ed Pg Nar i name"', value (required) 
| qualifier all,syntax=show_a l_keys 

qualifier state, value(required, list) 

qualifier brief 

ote directory,syntax=show_all_states 

| isallow directory and (brief or state or all) 

\define syntax show _name_syntax 

routine mail$cmd_show_name 

parameter pl,value(required) 

qualifier user,value(required) ,nonnegatable 


define syntax show new_syntax 
routine mail$cmd_show_new 
parameter pl,value(required) 


define syntax show Bots -fynten 
routine mail$cmd_show_sel 
parameter pl,value(required) 


define syntax show waste_syntax 
routine mail$cmd_show_waste 
parameter pl,value(required) 


define type show_options 

keyword all,syntax=show_all_syntax,nonnegatable 

keyword auto_purge.syntax=show_auto_syntax,nonnegatable 
keyword copy_self,syntax=show_self_syntax,nonnegatable 
keyword de eted,syntax=show del_syntax,nonnegatable 
keyword file,syntax=show_file_syntax,nonnegatable 

keyword folder,syntax=show_folder_syntax,nonnegatable 
keyword forward,syntax=show_forward_syntax,nonnegatable 
keyword | syntax=show_key_syntax,nonnegatable 

keyword ma (_directory,syntax=show.dir_syntax,nonnegatable 
keyword new_mail_count,syntax=show_new_syntax,nonnegatable 
keyword personal name,syntax=show_name_syntax,nonnegatable 
keyword wastebasket_name,syntax=show_waste_syntax,nonnegatable 


define verb set 
routine mail$cmd_null x . 
parameter pl,prompt="What"'’,value(required,type=set_options) 


define verb show 
routine mail$cmd_null : . 
parameter pl.prompt="What'',value(required, type=show_options) 


define verb spawn 

routine mail$cmd_spawn 

parameter Be verse cyporeroet ot Line) 
qualifier process,value(required) 
qualifier wait,default 
gpevicge log,default 


| 


——-- 


gasps, CLD;1 


peepee input, value(required,t 
qualifier output .va -value (required, 
qualifier symbols,de 

lifier | it Pt tobe ob ge RI 
lifier n 


t 


pe=$infile) 
ype=Sout fi le) 
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